Public Class clErrorPersonalizado
    Inherits System.Exception
    Dim mensaje As String
    Public Overrides ReadOnly Property message() As String
        Get
            Return mensaje
        End Get
    End Property
    Public Sub New(ByVal mensaje As String)
        Me.mensaje = mensaje
    End Sub
End Class